library(data.table)
library(sandwich)
library(lmtest)
library(AER)
library(dplyr)
library(ggplot2)
library(patchwork)
#Read in the data
d <- fread('joined_results_2nd_run.tsv')
head(d)
names(d)
## [1] "V1" "id"
## [3] "question" "sexual_orientation"
## [5] "age" "marital_status"
## [7] "demographic_race" "gender"
## [9] "ethnicity" "residency_type"
## [11] "education" "RE_job"
## [13] "ownership" "treatment"
## [15] "property_chosen" "abs_value_diff"
## [17] "value_diff" "p_id"
## [19] "Index" "question_treatment"
## [21] "question_control" "population_density"
## [23] "walk_score" "median_household_income"
## [25] "median_age" "nb_race"
## [27] "median_rooms_rounded" "bedrooms"
## [29] "bathrooms" "sq_ft"
## [31] "year_built" "housing_density"
## [33] "median_male_age" "pct_white"
## [35] "school_districts" "pct_lt_hs_grad"
## [37] "median_rooms" "pct_hs_grad"
## [39] "pct_at_least_col_grad" "GEOID"
## [41] "state" "tract"
## [43] "NAME" "ALAND"
## [45] "ALAND_SQMI" "county"
## [47] "Pair_ID" "INTPTLAT"
## [49] "INTPTLONG" "iframe"
## [51] "Racial majority detail"
#Filter to where user input property == potential response Property
d_filtered = d
d_filtered
#For every row, create a column that is the value difference of white to non white
#i.e. If race==white of response, abs_value_diff, else use -abs_value_diff
#Using data.table fifelse
d_filtered[ , white_value_diff := fifelse(nb_race=="white", abs_value_diff, -abs_value_diff)]
d_filtered[ ,log_abs_diff := log(abs_value_diff)]
d_filtered[, log_white_diff := fifelse(nb_race=="white", log_abs_diff, -log_abs_diff)]
#Create a column with 0/1 if neighborhood is white
d_filtered[ , nb_is_white := fifelse(nb_race=="white", 1, 0)]
#Create a variable for whether street view contained a person
d_filtered[ , street_view_person := rep(0, .N)]
#Change Property 1 & 3s to 1
d_filtered[ (property_chosen == "Property 1") & (question == "3s") , street_view_person := 1]
#Change both Properties of 10s to 1
d_filtered[ (question == "10s") , street_view_person := 1]
#Change property 2 of 11s to 1
d_filtered[ (property_chosen == "Property 2") &(question == "11s") , street_view_person := 1]
#Change property 1 of 13s to 1
d_filtered[ (property_chosen == "Property 1") &(question == "13s") , street_view_person := 1]
#Change property 2 of 14s to 1
d_filtered[ (property_chosen == "Property 2") &(question == "14s") , street_view_person := 1]
#Change property 1&2 of 18s to 1
d_filtered[ (question == "18s") , street_view_person := 1]
#Change property 1 of 20s to 1
d_filtered[ (property_chosen == "Property 1") &(question == "20s") , street_view_person := 1]
#Change property 1 of 25s to 1
d_filtered[ (property_chosen == "Property 1") &(question == "25s") , street_view_person := 1]
d_filtered
ggplot(data =d_filtered[ treatment==0, ], aes(d_filtered[ treatment==0, white_value_diff])) +
geom_histogram()
## `stat_bin()` using `bins = 30`. Pick better value with `binwidth`.

ggplot(data =d_filtered[ treatment==1, ], aes(d_filtered[ treatment==1, white_value_diff])) +
geom_histogram()
## `stat_bin()` using `bins = 30`. Pick better value with `binwidth`.

fwrite(d_filtered, "filtered_data_2.csv")
df = data.table::fread("filtered_data_2.csv")
df
names(df)
## [1] "V1" "id"
## [3] "question" "sexual_orientation"
## [5] "age" "marital_status"
## [7] "demographic_race" "gender"
## [9] "ethnicity" "residency_type"
## [11] "education" "RE_job"
## [13] "ownership" "treatment"
## [15] "property_chosen" "abs_value_diff"
## [17] "value_diff" "p_id"
## [19] "Index" "question_treatment"
## [21] "question_control" "population_density"
## [23] "walk_score" "median_household_income"
## [25] "median_age" "nb_race"
## [27] "median_rooms_rounded" "bedrooms"
## [29] "bathrooms" "sq_ft"
## [31] "year_built" "housing_density"
## [33] "median_male_age" "pct_white"
## [35] "school_districts" "pct_lt_hs_grad"
## [37] "median_rooms" "pct_hs_grad"
## [39] "pct_at_least_col_grad" "GEOID"
## [41] "state" "tract"
## [43] "NAME" "ALAND"
## [45] "ALAND_SQMI" "county"
## [47] "Pair_ID" "INTPTLAT"
## [49] "INTPTLONG" "iframe"
## [51] "Racial majority detail" "white_value_diff"
## [53] "log_abs_diff" "log_white_diff"
## [55] "nb_is_white" "street_view_person"
typeof(df)
## [1] "list"
#Some attempts at writing a model
#For each question, we want the difference in counts of properties selected by is_white
new_df = df[ , .(count=.N), keyby=.(question, nb_is_white, treatment) ]
new_df
#We want to predict the difference of the counts of the is_white or not properties for each question
new_df[ , is_white_count:= diff(count, lag=1), keyby = .(question, treatment)]
new_df
model = new_df[ , lm(is_white_count ~ treatment)]
coeftest(model, vcov = vcovCL(model, cluster = new_df[ , question]))
##
## t test of coefficients:
##
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 2.0000 5.6427 0.3544 0.7248
## treatment 8.5455 8.7030 0.9819 0.3318
prop_white_model = df[, lm(nb_is_white ~ treatment + as.factor(id))]
coeftest(prop_white_model, vcov = vcovCL(prop_white_model, cluster = df[ , as.factor(id)]))
##
## t test of coefficients:
##
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 6.3636e-01 3.4670e-15 1.8355e+14 < 2e-16 ***
## treatment -1.8182e-01 1.7877e-14 -1.0171e+13 < 2e-16 ***
## as.factor(id)73 1.8182e-01 1.7537e-14 1.0368e+13 < 2e-16 ***
## as.factor(id)74 9.0909e-02 1.9288e-14 4.7133e+12 < 2e-16 ***
## as.factor(id)77 -3.7013e-15 3.5724e-15 -1.0361e+00 0.30042
## as.factor(id)78 -2.0553e-14 1.7908e-14 -1.1477e+00 0.25137
## as.factor(id)79 2.2932e-15 3.5353e-15 6.4870e-01 0.51670
## as.factor(id)80 -9.0909e-02 3.4749e-15 -2.6162e+13 < 2e-16 ***
## as.factor(id)81 1.8182e-01 1.8440e-14 9.8598e+12 < 2e-16 ***
## as.factor(id)82 2.7273e-01 1.7565e-14 1.5527e+13 < 2e-16 ***
## as.factor(id)83 9.0909e-02 3.4827e-15 2.6103e+13 < 2e-16 ***
## as.factor(id)84 -1.8182e-01 3.4687e-15 -5.2417e+13 < 2e-16 ***
## as.factor(id)85 -5.3879e-15 3.4917e-15 -1.5430e+00 0.12315
## as.factor(id)86 -9.0909e-02 3.4717e-15 -2.6185e+13 < 2e-16 ***
## as.factor(id)87 9.0909e-02 1.7992e-14 5.0527e+12 < 2e-16 ***
## as.factor(id)88 1.8182e-01 1.7552e-14 1.0359e+13 < 2e-16 ***
## as.factor(id)89 1.8182e-01 1.7552e-14 1.0359e+13 < 2e-16 ***
## as.factor(id)90 1.8182e-01 3.4785e-15 5.2270e+13 < 2e-16 ***
## as.factor(id)91 9.0909e-02 3.4670e-15 2.6221e+13 < 2e-16 ***
## as.factor(id)92 2.7273e-01 1.7817e-14 1.5307e+13 < 2e-16 ***
## as.factor(id)93 9.0909e-02 3.4817e-15 2.6111e+13 < 2e-16 ***
## as.factor(id)94 2.7273e-01 1.7538e-14 1.5551e+13 < 2e-16 ***
## as.factor(id)95 -2.7273e-01 3.6024e-15 -7.5706e+13 < 2e-16 ***
## as.factor(id)96 9.0909e-02 3.4735e-15 2.6172e+13 < 2e-16 ***
## as.factor(id)97 2.7273e-01 1.7548e-14 1.5541e+13 < 2e-16 ***
## as.factor(id)98 -7.1342e-15 3.4690e-15 -2.0566e+00 0.03999 *
## as.factor(id)99 9.0909e-02 1.7585e-14 5.1697e+12 < 2e-16 ***
## as.factor(id)100 -9.0909e-02 3.4858e-15 -2.6080e+13 < 2e-16 ***
## as.factor(id)101 -1.8182e-01 3.4694e-15 -5.2407e+13 < 2e-16 ***
## as.factor(id)102 9.0909e-02 1.7604e-14 5.1641e+12 < 2e-16 ***
## as.factor(id)103 -9.0909e-02 1.7538e-14 -5.1834e+12 < 2e-16 ***
## as.factor(id)104 -1.8182e-01 3.4712e-15 -5.2379e+13 < 2e-16 ***
## as.factor(id)105 -2.7273e-01 3.4683e-15 -7.8633e+13 < 2e-16 ***
## as.factor(id)106 2.7273e-01 1.7839e-14 1.5289e+13 < 2e-16 ***
## as.factor(id)107 -3.1819e-15 3.4673e-15 -9.1770e-01 0.35901
## as.factor(id)108 -1.9819e-14 1.7628e-14 -1.1243e+00 0.26117
## as.factor(id)109 -1.5312e-14 1.7576e-14 -8.7120e-01 0.38387
## as.factor(id)110 1.8182e-01 1.7547e-14 1.0362e+13 < 2e-16 ***
## as.factor(id)111 -9.0909e-02 3.4729e-15 -2.6177e+13 < 2e-16 ***
## as.factor(id)112 2.7273e-01 1.7539e-14 1.5549e+13 < 2e-16 ***
## as.factor(id)113 -5.4545e-01 3.5088e-15 -1.5545e+14 < 2e-16 ***
## as.factor(id)114 9.0909e-02 3.5109e-15 2.5894e+13 < 2e-16 ***
## as.factor(id)115 -9.0909e-02 3.4798e-15 -2.6125e+13 < 2e-16 ***
## as.factor(id)116 -9.0909e-02 1.7656e-14 -5.1490e+12 < 2e-16 ***
## as.factor(id)117 -3.6364e-01 3.5060e-15 -1.0372e+14 < 2e-16 ***
## as.factor(id)118 2.7273e-01 1.7537e-14 1.5551e+13 < 2e-16 ***
## as.factor(id)119 -3.6364e-01 3.4674e-15 -1.0487e+14 < 2e-16 ***
## as.factor(id)120 2.7273e-01 1.7543e-14 1.5546e+13 < 2e-16 ***
## as.factor(id)121 3.6364e-01 1.7626e-14 2.0630e+13 < 2e-16 ***
## as.factor(id)122 -1.9711e-14 1.7537e-14 -1.1240e+00 0.26131
## as.factor(id)123 9.0909e-02 3.4712e-15 2.6190e+13 < 2e-16 ***
## as.factor(id)124 -9.0909e-02 1.7720e-14 -5.1302e+12 < 2e-16 ***
## as.factor(id)125 -9.0909e-02 3.4807e-15 -2.6118e+13 < 2e-16 ***
## as.factor(id)126 2.7273e-01 1.7572e-14 1.5521e+13 < 2e-16 ***
## as.factor(id)127 4.5455e-01 1.7745e-14 2.5615e+13 < 2e-16 ***
## as.factor(id)128 1.8182e-01 1.7555e-14 1.0357e+13 < 2e-16 ***
## as.factor(id)129 -3.5892e-15 3.4683e-15 -1.0348e+00 0.30100
## as.factor(id)130 3.6364e-01 1.7545e-14 2.0725e+13 < 2e-16 ***
## as.factor(id)131 -9.0909e-02 3.4674e-15 -2.6218e+13 < 2e-16 ***
## as.factor(id)132 9.0909e-02 1.7575e-14 5.1727e+12 < 2e-16 ***
## as.factor(id)133 -1.8182e-01 3.4672e-15 -5.2440e+13 < 2e-16 ***
## as.factor(id)134 -2.7430e-15 3.4674e-15 -7.9110e-01 0.42909
## as.factor(id)135 1.8182e-01 1.7538e-14 1.0367e+13 < 2e-16 ***
## as.factor(id)136 -1.8182e-01 3.4789e-15 -5.2263e+13 < 2e-16 ***
## as.factor(id)137 9.0909e-02 1.7585e-14 5.1697e+12 < 2e-16 ***
## as.factor(id)138 -3.6364e-01 3.4694e-15 -1.0481e+14 < 2e-16 ***
## as.factor(id)139 -2.7273e-01 3.4673e-15 -7.8657e+13 < 2e-16 ***
## as.factor(id)140 -1.5949e-14 1.7538e-14 -9.0940e-01 0.36336
## as.factor(id)141 -2.7273e-01 3.4702e-15 -7.8591e+13 < 2e-16 ***
## as.factor(id)142 1.8182e-01 1.7637e-14 1.0309e+13 < 2e-16 ***
## as.factor(id)143 -9.0909e-02 3.4682e-15 -2.6212e+13 < 2e-16 ***
## as.factor(id)144 -2.7273e-01 3.4723e-15 -7.8544e+13 < 2e-16 ***
## as.factor(id)145 1.8182e-01 1.7628e-14 1.0314e+13 < 2e-16 ***
## as.factor(id)146 1.8182e-01 1.7544e-14 1.0364e+13 < 2e-16 ***
## as.factor(id)147 -3.6364e-01 3.4687e-15 -1.0483e+14 < 2e-16 ***
## as.factor(id)148 -2.7273e-01 3.5215e-15 -7.7447e+13 < 2e-16 ***
## as.factor(id)149 2.7273e-01 1.7546e-14 1.5544e+13 < 2e-16 ***
## as.factor(id)150 1.8182e-01 1.7583e-14 1.0341e+13 < 2e-16 ***
## as.factor(id)151 -4.3398e-15 3.4673e-15 -1.2516e+00 0.21100
## as.factor(id)152 -2.7273e-01 3.4702e-15 -7.8591e+13 < 2e-16 ***
## as.factor(id)153 -2.1136e-14 1.7541e-14 -1.2050e+00 0.22851
## as.factor(id)154 -1.8182e-01 3.4681e-15 -5.2426e+13 < 2e-16 ***
## as.factor(id)155 2.7273e-01 1.7673e-14 1.5431e+13 < 2e-16 ***
## as.factor(id)156 -1.8182e-01 3.4672e-15 -5.2440e+13 < 2e-16 ***
## as.factor(id)157 3.6364e-01 1.7539e-14 2.0733e+13 < 2e-16 ***
## as.factor(id)158 -1.8394e-14 1.7571e-14 -1.0469e+00 0.29541
## as.factor(id)159 -1.8182e-01 3.4764e-15 -5.2301e+13 < 2e-16 ***
## as.factor(id)162 -3.3595e-15 3.4717e-15 -9.6770e-01 0.33345
## as.factor(id)163 1.8182e-01 1.7542e-14 1.0365e+13 < 2e-16 ***
## as.factor(id)164 1.8182e-01 1.7633e-14 1.0311e+13 < 2e-16 ***
## as.factor(id)165 9.0909e-02 3.4707e-15 2.6193e+13 < 2e-16 ***
## as.factor(id)166 -9.0909e-02 3.4677e-15 -2.6216e+13 < 2e-16 ***
## as.factor(id)167 -9.0909e-02 1.7591e-14 -5.1680e+12 < 2e-16 ***
## as.factor(id)168 1.8182e-01 1.7571e-14 1.0347e+13 < 2e-16 ***
## as.factor(id)169 -1.8182e-01 3.4764e-15 -5.2301e+13 < 2e-16 ***
## as.factor(id)171 9.0909e-02 3.4756e-15 2.6156e+13 < 2e-16 ***
## as.factor(id)172 1.8182e-01 1.7572e-14 1.0347e+13 < 2e-16 ***
## as.factor(id)174 -3.6364e-01 3.4764e-15 -1.0460e+14 < 2e-16 ***
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
stargazer::stargazer(prop_white_model, header = T, type='html', se = list(NULL,sqrt(diag(vcovCL(prop_white_model, cluster = df[ , as.factor(id)])))),out='prop_white_model_table.html')
##
## <table style="text-align:center"><tr><td colspan="2" style="border-bottom: 1px solid black"></td></tr><tr><td style="text-align:left"></td><td><em>Dependent variable:</em></td></tr>
## <tr><td></td><td colspan="1" style="border-bottom: 1px solid black"></td></tr>
## <tr><td style="text-align:left"></td><td>nb_is_white</td></tr>
## <tr><td colspan="2" style="border-bottom: 1px solid black"></td></tr><tr><td style="text-align:left">treatment</td><td>-0.182</td></tr>
## <tr><td style="text-align:left"></td><td>(0.211)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)73</td><td>0.182</td></tr>
## <tr><td style="text-align:left"></td><td>(0.211)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)74</td><td>0.091</td></tr>
## <tr><td style="text-align:left"></td><td>(0.211)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)77</td><td>-0.000</td></tr>
## <tr><td style="text-align:left"></td><td>(0.211)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)78</td><td>-0.000</td></tr>
## <tr><td style="text-align:left"></td><td>(0.211)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)79</td><td>0.000</td></tr>
## <tr><td style="text-align:left"></td><td>(0.211)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)80</td><td>-0.091</td></tr>
## <tr><td style="text-align:left"></td><td>(0.211)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)81</td><td>0.182</td></tr>
## <tr><td style="text-align:left"></td><td>(0.211)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)82</td><td>0.273</td></tr>
## <tr><td style="text-align:left"></td><td>(0.211)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)83</td><td>0.091</td></tr>
## <tr><td style="text-align:left"></td><td>(0.211)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)84</td><td>-0.182</td></tr>
## <tr><td style="text-align:left"></td><td>(0.211)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)85</td><td>-0.000</td></tr>
## <tr><td style="text-align:left"></td><td>(0.211)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)86</td><td>-0.091</td></tr>
## <tr><td style="text-align:left"></td><td>(0.211)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)87</td><td>0.091</td></tr>
## <tr><td style="text-align:left"></td><td>(0.211)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)88</td><td>0.182</td></tr>
## <tr><td style="text-align:left"></td><td>(0.211)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)89</td><td>0.182</td></tr>
## <tr><td style="text-align:left"></td><td>(0.211)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)90</td><td>0.182</td></tr>
## <tr><td style="text-align:left"></td><td>(0.211)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)91</td><td>0.091</td></tr>
## <tr><td style="text-align:left"></td><td>(0.211)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)92</td><td>0.273</td></tr>
## <tr><td style="text-align:left"></td><td>(0.211)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)93</td><td>0.091</td></tr>
## <tr><td style="text-align:left"></td><td>(0.211)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)94</td><td>0.273</td></tr>
## <tr><td style="text-align:left"></td><td>(0.211)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)95</td><td>-0.273</td></tr>
## <tr><td style="text-align:left"></td><td>(0.211)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)96</td><td>0.091</td></tr>
## <tr><td style="text-align:left"></td><td>(0.211)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)97</td><td>0.273</td></tr>
## <tr><td style="text-align:left"></td><td>(0.211)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)98</td><td>-0.000</td></tr>
## <tr><td style="text-align:left"></td><td>(0.211)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)99</td><td>0.091</td></tr>
## <tr><td style="text-align:left"></td><td>(0.211)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)100</td><td>-0.091</td></tr>
## <tr><td style="text-align:left"></td><td>(0.211)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)101</td><td>-0.182</td></tr>
## <tr><td style="text-align:left"></td><td>(0.211)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)102</td><td>0.091</td></tr>
## <tr><td style="text-align:left"></td><td>(0.211)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)103</td><td>-0.091</td></tr>
## <tr><td style="text-align:left"></td><td>(0.211)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)104</td><td>-0.182</td></tr>
## <tr><td style="text-align:left"></td><td>(0.211)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)105</td><td>-0.273</td></tr>
## <tr><td style="text-align:left"></td><td>(0.211)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)106</td><td>0.273</td></tr>
## <tr><td style="text-align:left"></td><td>(0.211)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)107</td><td>-0.000</td></tr>
## <tr><td style="text-align:left"></td><td>(0.211)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)108</td><td>-0.000</td></tr>
## <tr><td style="text-align:left"></td><td>(0.211)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)109</td><td>-0.000</td></tr>
## <tr><td style="text-align:left"></td><td>(0.211)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)110</td><td>0.182</td></tr>
## <tr><td style="text-align:left"></td><td>(0.211)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)111</td><td>-0.091</td></tr>
## <tr><td style="text-align:left"></td><td>(0.211)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)112</td><td>0.273</td></tr>
## <tr><td style="text-align:left"></td><td>(0.211)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)113</td><td>-0.545<sup>***</sup></td></tr>
## <tr><td style="text-align:left"></td><td>(0.211)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)114</td><td>0.091</td></tr>
## <tr><td style="text-align:left"></td><td>(0.211)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)115</td><td>-0.091</td></tr>
## <tr><td style="text-align:left"></td><td>(0.211)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)116</td><td>-0.091</td></tr>
## <tr><td style="text-align:left"></td><td>(0.211)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)117</td><td>-0.364<sup>*</sup></td></tr>
## <tr><td style="text-align:left"></td><td>(0.211)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)118</td><td>0.273</td></tr>
## <tr><td style="text-align:left"></td><td>(0.211)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)119</td><td>-0.364<sup>*</sup></td></tr>
## <tr><td style="text-align:left"></td><td>(0.211)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)120</td><td>0.273</td></tr>
## <tr><td style="text-align:left"></td><td>(0.211)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)121</td><td>0.364<sup>*</sup></td></tr>
## <tr><td style="text-align:left"></td><td>(0.211)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)122</td><td>-0.000</td></tr>
## <tr><td style="text-align:left"></td><td>(0.211)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)123</td><td>0.091</td></tr>
## <tr><td style="text-align:left"></td><td>(0.211)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)124</td><td>-0.091</td></tr>
## <tr><td style="text-align:left"></td><td>(0.211)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)125</td><td>-0.091</td></tr>
## <tr><td style="text-align:left"></td><td>(0.211)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)126</td><td>0.273</td></tr>
## <tr><td style="text-align:left"></td><td>(0.211)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)127</td><td>0.455<sup>**</sup></td></tr>
## <tr><td style="text-align:left"></td><td>(0.211)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)128</td><td>0.182</td></tr>
## <tr><td style="text-align:left"></td><td>(0.211)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)129</td><td>-0.000</td></tr>
## <tr><td style="text-align:left"></td><td>(0.211)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)130</td><td>0.364<sup>*</sup></td></tr>
## <tr><td style="text-align:left"></td><td>(0.211)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)131</td><td>-0.091</td></tr>
## <tr><td style="text-align:left"></td><td>(0.211)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)132</td><td>0.091</td></tr>
## <tr><td style="text-align:left"></td><td>(0.211)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)133</td><td>-0.182</td></tr>
## <tr><td style="text-align:left"></td><td>(0.211)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)134</td><td>-0.000</td></tr>
## <tr><td style="text-align:left"></td><td>(0.211)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)135</td><td>0.182</td></tr>
## <tr><td style="text-align:left"></td><td>(0.211)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)136</td><td>-0.182</td></tr>
## <tr><td style="text-align:left"></td><td>(0.211)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)137</td><td>0.091</td></tr>
## <tr><td style="text-align:left"></td><td>(0.211)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)138</td><td>-0.364<sup>*</sup></td></tr>
## <tr><td style="text-align:left"></td><td>(0.211)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)139</td><td>-0.273</td></tr>
## <tr><td style="text-align:left"></td><td>(0.211)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)140</td><td>-0.000</td></tr>
## <tr><td style="text-align:left"></td><td>(0.211)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)141</td><td>-0.273</td></tr>
## <tr><td style="text-align:left"></td><td>(0.211)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)142</td><td>0.182</td></tr>
## <tr><td style="text-align:left"></td><td>(0.211)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)143</td><td>-0.091</td></tr>
## <tr><td style="text-align:left"></td><td>(0.211)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)144</td><td>-0.273</td></tr>
## <tr><td style="text-align:left"></td><td>(0.211)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)145</td><td>0.182</td></tr>
## <tr><td style="text-align:left"></td><td>(0.211)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)146</td><td>0.182</td></tr>
## <tr><td style="text-align:left"></td><td>(0.211)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)147</td><td>-0.364<sup>*</sup></td></tr>
## <tr><td style="text-align:left"></td><td>(0.211)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)148</td><td>-0.273</td></tr>
## <tr><td style="text-align:left"></td><td>(0.211)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)149</td><td>0.273</td></tr>
## <tr><td style="text-align:left"></td><td>(0.211)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)150</td><td>0.182</td></tr>
## <tr><td style="text-align:left"></td><td>(0.211)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)151</td><td>-0.000</td></tr>
## <tr><td style="text-align:left"></td><td>(0.211)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)152</td><td>-0.273</td></tr>
## <tr><td style="text-align:left"></td><td>(0.211)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)153</td><td>-0.000</td></tr>
## <tr><td style="text-align:left"></td><td>(0.211)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)154</td><td>-0.182</td></tr>
## <tr><td style="text-align:left"></td><td>(0.211)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)155</td><td>0.273</td></tr>
## <tr><td style="text-align:left"></td><td>(0.211)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)156</td><td>-0.182</td></tr>
## <tr><td style="text-align:left"></td><td>(0.211)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)157</td><td>0.364<sup>*</sup></td></tr>
## <tr><td style="text-align:left"></td><td>(0.211)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)158</td><td>-0.000</td></tr>
## <tr><td style="text-align:left"></td><td>(0.211)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)159</td><td>-0.182</td></tr>
## <tr><td style="text-align:left"></td><td>(0.211)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)162</td><td>-0.000</td></tr>
## <tr><td style="text-align:left"></td><td>(0.211)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)163</td><td>0.182</td></tr>
## <tr><td style="text-align:left"></td><td>(0.211)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)164</td><td>0.182</td></tr>
## <tr><td style="text-align:left"></td><td>(0.211)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)165</td><td>0.091</td></tr>
## <tr><td style="text-align:left"></td><td>(0.211)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)166</td><td>-0.091</td></tr>
## <tr><td style="text-align:left"></td><td>(0.211)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)167</td><td>-0.091</td></tr>
## <tr><td style="text-align:left"></td><td>(0.211)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)168</td><td>0.182</td></tr>
## <tr><td style="text-align:left"></td><td>(0.211)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)169</td><td>-0.182</td></tr>
## <tr><td style="text-align:left"></td><td>(0.211)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)171</td><td>0.091</td></tr>
## <tr><td style="text-align:left"></td><td>(0.211)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)172</td><td>0.182</td></tr>
## <tr><td style="text-align:left"></td><td>(0.211)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)173</td><td></td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)174</td><td>-0.364<sup>*</sup></td></tr>
## <tr><td style="text-align:left"></td><td>(0.211)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">Constant</td><td>0.636<sup>***</sup></td></tr>
## <tr><td style="text-align:left"></td><td>(0.149)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td colspan="2" style="border-bottom: 1px solid black"></td></tr><tr><td style="text-align:left">Observations</td><td>1,078</td></tr>
## <tr><td style="text-align:left">R<sup>2</sup></td><td>0.096</td></tr>
## <tr><td style="text-align:left">Adjusted R<sup>2</sup></td><td>0.007</td></tr>
## <tr><td style="text-align:left">Residual Std. Error</td><td>0.494 (df = 980)</td></tr>
## <tr><td style="text-align:left">F Statistic</td><td>1.073 (df = 97; 980)</td></tr>
## <tr><td colspan="2" style="border-bottom: 1px solid black"></td></tr><tr><td style="text-align:left"><em>Note:</em></td><td style="text-align:right"><sup>*</sup>p<0.1; <sup>**</sup>p<0.05; <sup>***</sup>p<0.01</td></tr>
## </table>
prop_white_model_no_id = df[, lm(nb_is_white ~ treatment)]
coeftest(prop_white_model_no_id, vcov = vcovCL(prop_white_model_no_id))
##
## t test of coefficients:
##
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.520000 0.021323 24.3870 < 2.2e-16 ***
## treatment 0.089848 0.030102 2.9848 0.002902 **
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
stargazer::stargazer(prop_white_model_no_id, header = T, type='html', se = list(NULL,sqrt(diag(vcovCL(prop_white_model_no_id, cluster = df[ , as.factor(id)])))),out='prop_white_model_no_id_table.html')
##
## <table style="text-align:center"><tr><td colspan="2" style="border-bottom: 1px solid black"></td></tr><tr><td style="text-align:left"></td><td><em>Dependent variable:</em></td></tr>
## <tr><td></td><td colspan="1" style="border-bottom: 1px solid black"></td></tr>
## <tr><td style="text-align:left"></td><td>nb_is_white</td></tr>
## <tr><td colspan="2" style="border-bottom: 1px solid black"></td></tr><tr><td style="text-align:left">treatment</td><td>0.090<sup>***</sup></td></tr>
## <tr><td style="text-align:left"></td><td>(0.030)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">Constant</td><td>0.520<sup>***</sup></td></tr>
## <tr><td style="text-align:left"></td><td>(0.021)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td colspan="2" style="border-bottom: 1px solid black"></td></tr><tr><td style="text-align:left">Observations</td><td>1,078</td></tr>
## <tr><td style="text-align:left">R<sup>2</sup></td><td>0.008</td></tr>
## <tr><td style="text-align:left">Adjusted R<sup>2</sup></td><td>0.007</td></tr>
## <tr><td style="text-align:left">Residual Std. Error</td><td>0.494 (df = 1076)</td></tr>
## <tr><td style="text-align:left">F Statistic</td><td>8.900<sup>***</sup> (df = 1; 1076)</td></tr>
## <tr><td colspan="2" style="border-bottom: 1px solid black"></td></tr><tr><td style="text-align:left"><em>Note:</em></td><td style="text-align:right"><sup>*</sup>p<0.1; <sup>**</sup>p<0.05; <sup>***</sup>p<0.01</td></tr>
## </table>
df[,white_value_diff]
## [1] -100000 -100000 -2000 -5000 -75000 -200000 60000 -50000 -10000
## [10] 40000 -10000 -13000 -50000 -2000 -50000 -20000 -10000 -35000
## [19] 5000 -500000 -15000 -50000 -200000 -8000 5000 -15000 -100000
## [28] 75000 5000 -100000 -50000 -20000 -2250 -95000 -20000 -200000
## [37] 25000 -10000 -40000 22000 -120000 -30000 -3000 20000 2000
## [46] 8000 40000 -5000 40000 -29000 15000 5000 150000 -100000
## [55] 40000 60000 30000 120000 25000 6000 -5000 10000 70000
## [64] -10000 -6000 10000 5000 75000 3000 25000 100000 -15000
## [73] 75000 15000 50000 15000 -20000 28000 50000 15000 7500
## [82] 20000 10000 300000 60000 40000 150000 65000 60000 50000
## [91] 15000 25000 15000 15000 200000 5000 -20000 -50000 10000
## [100] -5000 70000 100000 -300000 -50000 -20000 55000 7500 8000
## [109] -100000 -10000 -50000 -20000 20000 -32000 2000 -150000 -8500
## [118] 3000 25000 3000 -15000 -30000 50000 25000 5000 35000
## [127] 100000 -20000 -5500 -80000 -10000 -200000 10000 10000 -75000
## [136] -12000 22000 -25000 -7000 -12000 -5000 -2000 -30000 -5000
## [145] 60000 90000 25000 5000 60000 55000 75000 30000 15000
## [154] 25000 8000 -3500 20000 1000 65000 15000 50000 10000
## [163] 2000 -50000 3300 12000 75000 1000 20000 25000 100000
## [172] 60000 10000 35000 35000 10000 7000 25000 40000 150000
## [181] -22000 10000 10000 4000 -3000 45000 10000 25000 3000
## [190] 7000 30000 5000 -30000 -39000 -5000 -20000 -55000 -200000
## [199] 200000 -40000 15000 80000 -15000 6000 25000 1000 30000
## [208] 20000 -15000 20000 -25000 -500000 3000 -10000 5000 -3000
## [217] -40000 15000 25000 -35000 5000 -8400 -100000 -7000 -7700
## [226] 1000 50000 -250000 -55000 -20000 -30000 -17000 24000 -35000
## [235] 10000 25000 -5000 -3000 -20000 5000 30000 45000 -5000
## [244] 7500 45000 100000 -40000 40000 -20000 -35000 5000 16000
## [253] 5000 -1000 -55000 -8000 20000 -15000 5000 -50000 10000
## [262] -15000 75000 -2000 7500 10000 100000 20000 5000 -11000
## [271] 45000 15000 -2500 30000 100000 100000 20000 15000 40000
## [280] -14000 6000 6000 -5000 -50000 -5000 -2000 50000 -5000
## [289] 30000 -60000 -25000 10000 -110000 -250000 -30000 -50000 20000
## [298] -40000 -25000 -8000 -70000 -25000 70000 5000 -4000 -40000
## [307] -20000 -200000 1100 12500 -75000 -5000 -2500 -15000 20000
## [316] 20000 -20000 -35000 150000 -50000 -3200 10000 -100000 -100000
## [325] -100000 -75000 -70000 35000 46000 -4000 12000 -75000 -5000
## [334] 4000 -200000 25000 40000 50000 25000 15000 100000 50000
## [343] 50000 30000 15000 60000 20000 4000 -5000 5000 120000
## [352] -5000 -100000 8000 5000 150000 9000 65000 25000 -3000
## [361] -2500 15000 50000 50000 20000 18000 -50000 12000 11000
## [370] -5000 40000 300000 40000 15000 10000 25000 220000 -6000
## [379] 10000 50000 10000 8000 -40000 -5000 60000 20000 -2500
## [388] 10000 125000 150000 100000 10000 15000 -25000 20000 14000
## [397] 25000 -20000 20000 8000 -500 15000 -1000 150000 -2000
## [406] 7500 50000 12000 -10000 10000 75000 -30000 20000 80000
## [415] 20000 25000 1500 5000 -50000 200000 15000 25000 30000
## [424] 50000 25000 7000 5000 15000 -10000 -7000 30000 -5000
## [433] -10000 25000 15000 -7500 30000 -40000 -40000 20000 7000
## [442] 35000 11000 -25000 50000 -1000 20000 -4000 20000 15000
## [451] 2500 -100000 2700 15000 20000 1000 -5000 10000 20000
## [460] -15000 10000 8000 -50000 -10000 -3500 -1000 60000 200000
## [469] 30000 20000 -15000 10000 50000 -6000 -4000 -10000 -5000
## [478] 10000 30000 -5000 10000 48000 -5000 7000 75000 210000
## [487] 80000 30000 17000 65000 12000 -15000 10000 -5000 55000
## [496] 8000 500 30000 10000 125000 8000 12000 50000 5000
## [505] -2500 15000 50000 -15000 10000 -41000 75000 16000 2600
## [514] 75000 40000 250000 35000 -10000 -40000 5000 45000 20000
## [523] 10000 15000 -1000 10000 30000 5000 10000 10000 17000
## [532] -10000 1000 -300 -3000 7500 8000 1000 5000 -7000
## [541] 1000 7000 -2000 -5000 1500 -2200 500 5000 -30000
## [550] 500 5000 -2500 -4000 10000 3200 10000 5000 250
## [559] 1500 -1500 -20000 -2200 -5000 -100 1000 -30000 -5000
## [568] 4000 -6000 1000 -500 -2000 2000 3500 800 -1000
## [577] 12000 -10000 -20000 65000 48000 15000 -5000 1500 5000
## [586] -10000 20000 1000 -8000 10000 5000 2500 4000 9000
## [595] -2000 7500 1000 50000 -5000 -500 5000 1000 -5000
## [604] 5000 1450 10000 5000 -300 -500 3000 100000 4700
## [613] 30000 400 5000 50000 5000 4000 -10000 1000 3000
## [622] 7000 -2000 5600 500 -500 30000 25000 -10000 -50000
## [631] 25000 -35000 7500 -700 5000 15000 -2000 -1000 -15000
## [640] -10000 -2000 7500 2000 -5000 -1200 -2500 -2000 -5000
## [649] -1000 -1000 -4000 -3000 -2500 5000 14500 -15000 -5000
## [658] -1000 500 -5000 -50000 -4225 -20000 -100 -2000 -10000
## [667] -10000 -10000 -6000 0 -3000 -8500 2000 -2900 -1000
## [676] -500 24000 -15000 20000 15000 -20000 8000 2000 1500
## [685] -2500 -15000 5000 3000 2000 -1500 14000 -5000 1000
## [694] -4000 900 4500 500 -10000 -10000 -500 10000 -2100
## [703] 5000 -5000 -1500 20000 5000 600 1000 4500 -10000
## [712] 3890 5000 500 -1000 -10000 5000 7500 2000 2000
## [721] 1500 5500 -1000 4000 500 1000 15000 -5000 10000
## [730] 10000 15000 -10000 11111 -300 2500 10000 10000 1000
## [739] 7000 5000 1000 25000 2000 3000 250 -2500 1000
## [748] 20000 10000 2000 5000 -2100 1500 10000 36000 15000
## [757] 5000 -450 1000 2000 -25000 -1200 -5000 -500 2000
## [766] -40000 500 3000 -10000 -1500 -1500 1000 2500 2100
## [775] 900 -30000 8500 -15000 10000 -35000 -2500 12000 -30000
## [784] 1000 -5000 -15000 -5000 -2000 -5000 10000 -5000 -25000
## [793] -1000 -5000 -1000 -6000 1500 50000 -20000 2500 -50000
## [802] 2300 -8000 -15000 -31000 -20000 -5000 750 -1000 2000
## [811] 125000 -2575 -10000 -300 -1000 50000 -5000 -2000 -4000
## [820] -3000 -1500 -3000 -15000 -3100 -2500 -1000 -22000 15000
## [829] 20000 50000 -45000 10000 50000 2000 5000 -5000 1000
## [838] 1000 3000 -7000 3000 -5000 -3000 -30000 2300 4000
## [847] 1000 -10000 -10000 750 15000 -3500 3000 -10000 -4500
## [856] 20000 -10000 500 1500 -3000 -150000 1769 10000 200
## [865] -1500 -100000 -5000 5000 5000 0 1500 1250 10000
## [874] 1400 -1000 800 -50000 -10000 -20000 -35000 13000 -20000
## [883] 500 -1300 3000 5000 1000 2000 2000 -2000 1000
## [892] 5000 2000 2000 -300 -5000 -500 -10000 -10000 500
## [901] -6000 -1800 -4500 5000 -16000 -20000 -1000 -500 -2000
## [910] -500 -15000 -525 -5000 50 -1500 -5000 -5000 -2000
## [919] 170000 0 -500 -1500 1000 2800 500 -300 6000
## [928] -10000 10000 15000 -5500 5000 -100 1750 -2500 -5000
## [937] 15000 1000 5000 3000 -12000 -5000 2000 -3000 -5000
## [946] -8000 1000 20000 -20000 1000 20000 1500 -5000 5000
## [955] -2700 35000 5000 750 -2500 -2500 50000 -1200 -25000
## [964] 1000 750 15000 10000 5000 -30000 -10000 1000 -17000
## [973] -3000 4000 -2500 3000 -10000 7500 -15000 -25000 26000
## [982] -15000 500 -500 2500 6000 2000 -2000 4000 -5000
## [991] 3000 12000 -1000 2000 -750 -4000 -500 -10000 -30000
## [1000] 1000 -10000 -1200 -2500 10000 3900 -15000 -1000 -250
## [1009] 1000 -4000 -25000 -3980 -15000 -300 -500 -10000 -5000
## [1018] -1000 -3000 0 -3000 -4750 1500 -8500 -1800 10000
## [1027] 6500 -10000 30000 25000 10000 10000 5555 -500 2000
## [1036] 5000 5000 2000 7500 -5000 2000 7500 -2000 4000
## [1045] 500 10000 -1500 5000 -40000 750 -15000 -3000 -7500
## [1054] 5000 5400 25000 5000 -250 2000 3000 -75000 2990
## [1063] 10000 1000 -1000 -10000 -5000 20000 7000 500 2250
## [1072] 2500 5000 5600 780 800 35000 -15000
value_model = df[, lm(white_value_diff ~ treatment + as.factor(id))]
coeftest(value_model, vcov = vcovCL(value_model, cluster = df[ , as.factor(id)]))
##
## t test of coefficients:
##
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 4.0909e+03 2.8437e-10 1.4386e+13 <2e-16 ***
## treatment -2.7273e+03 7.3577e-10 -3.7067e+12 <2e-16 ***
## as.factor(id)73 8.6364e+03 6.7862e-10 1.2726e+13 <2e-16 ***
## as.factor(id)74 -1.3636e+03 8.3092e-10 -1.6411e+12 <2e-16 ***
## as.factor(id)77 2.3436e-10 2.9213e-10 8.0220e-01 0.4226
## as.factor(id)78 2.7727e+03 6.7864e-10 4.0857e+12 <2e-16 ***
## as.factor(id)79 3.2727e+03 2.8667e-10 1.1416e+13 <2e-16 ***
## as.factor(id)80 -6.8182e+03 2.8784e-10 -2.3687e+13 <2e-16 ***
## as.factor(id)81 6.3636e+02 6.7967e-10 9.3629e+11 <2e-16 ***
## as.factor(id)82 3.6364e+04 6.8348e-10 5.3204e+13 <2e-16 ***
## as.factor(id)83 -1.7582e+02 2.8781e-10 -6.1088e+11 <2e-16 ***
## as.factor(id)84 -3.7136e+03 2.8784e-10 -1.2902e+13 <2e-16 ***
## as.factor(id)85 -3.0000e+03 2.8743e-10 -1.0437e+13 <2e-16 ***
## as.factor(id)86 -4.2273e+03 2.8774e-10 -1.4691e+13 <2e-16 ***
## as.factor(id)87 -1.2727e+04 8.6777e-10 -1.4667e+13 <2e-16 ***
## as.factor(id)88 1.6364e+04 6.7997e-10 2.4065e+13 <2e-16 ***
## as.factor(id)89 1.3636e+03 6.9048e-10 1.9749e+12 <2e-16 ***
## as.factor(id)90 1.3636e+03 2.8795e-10 4.7357e+12 <2e-16 ***
## as.factor(id)91 -3.4545e+03 2.8749e-10 -1.2016e+13 <2e-16 ***
## as.factor(id)92 6.2727e+03 6.8222e-10 9.1946e+12 <2e-16 ***
## as.factor(id)93 -3.4091e+03 2.8735e-10 -1.1864e+13 <2e-16 ***
## as.factor(id)94 3.3182e+04 6.8284e-10 4.8594e+13 <2e-16 ***
## as.factor(id)95 -4.9545e+03 2.8838e-10 -1.7181e+13 <2e-16 ***
## as.factor(id)96 -3.0909e+03 2.8839e-10 -1.0718e+13 <2e-16 ***
## as.factor(id)97 3.9545e+03 6.8019e-10 5.8139e+12 <2e-16 ***
## as.factor(id)98 -1.6818e+03 2.8806e-10 -5.8384e+12 <2e-16 ***
## as.factor(id)99 -2.3182e+03 6.7920e-10 -3.4131e+12 <2e-16 ***
## as.factor(id)100 -3.7273e+03 2.8696e-10 -1.2989e+13 <2e-16 ***
## as.factor(id)101 -7.0000e+03 2.8948e-10 -2.4181e+13 <2e-16 ***
## as.factor(id)102 -1.0000e+04 6.7861e-10 -1.4736e+13 <2e-16 ***
## as.factor(id)103 -5.6364e+03 6.8069e-10 -8.2804e+12 <2e-16 ***
## as.factor(id)104 -4.5273e+03 2.8892e-10 -1.5670e+13 <2e-16 ***
## as.factor(id)105 -4.4727e+03 2.8818e-10 -1.5521e+13 <2e-16 ***
## as.factor(id)106 2.5455e+04 7.5566e-10 3.3685e+13 <2e-16 ***
## as.factor(id)107 -3.9091e+03 2.8808e-10 -1.3570e+13 <2e-16 ***
## as.factor(id)108 -2.3636e+03 6.8626e-10 -3.4442e+12 <2e-16 ***
## as.factor(id)109 -3.6364e+03 6.8983e-10 -5.2714e+12 <2e-16 ***
## as.factor(id)110 -2.6364e+03 6.7932e-10 -3.8809e+12 <2e-16 ***
## as.factor(id)111 5.4545e+03 2.8861e-10 1.8899e+13 <2e-16 ***
## as.factor(id)112 -2.2273e+03 6.7973e-10 -3.2767e+12 <2e-16 ***
## as.factor(id)113 -1.9182e+04 2.9254e-10 -6.5571e+13 <2e-16 ***
## as.factor(id)114 -3.4545e+03 2.8714e-10 -1.2031e+13 <2e-16 ***
## as.factor(id)115 -6.3636e+03 2.8774e-10 -2.2116e+13 <2e-16 ***
## as.factor(id)116 -9.6818e+04 6.7862e-10 -1.4267e+14 <2e-16 ***
## as.factor(id)117 -5.4000e+03 2.8777e-10 -1.8765e+13 <2e-16 ***
## as.factor(id)118 -3.6364e+01 6.7888e-10 -5.3564e+10 <2e-16 ***
## as.factor(id)119 -6.7727e+03 2.8896e-10 -2.3438e+13 <2e-16 ***
## as.factor(id)120 5.6364e+03 6.7907e-10 8.3001e+12 <2e-16 ***
## as.factor(id)121 1.2273e+04 7.6000e-10 1.6148e+13 <2e-16 ***
## as.factor(id)122 -2.6364e+03 6.8849e-10 -3.8292e+12 <2e-16 ***
## as.factor(id)123 -1.8182e+03 2.8537e-10 -6.3714e+12 <2e-16 ***
## as.factor(id)124 1.3636e+03 6.8026e-10 2.0046e+12 <2e-16 ***
## as.factor(id)125 -3.2955e+03 2.8490e-10 -1.1567e+13 <2e-16 ***
## as.factor(id)126 3.6364e+03 6.7861e-10 5.3585e+12 <2e-16 ***
## as.factor(id)127 3.8636e+04 7.7623e-10 4.9774e+13 <2e-16 ***
## as.factor(id)128 1.4091e+04 6.8650e-10 2.0526e+13 <2e-16 ***
## as.factor(id)129 1.8182e+03 2.8978e-10 6.2743e+12 <2e-16 ***
## as.factor(id)130 3.1818e+03 6.8236e-10 4.6629e+12 <2e-16 ***
## as.factor(id)131 -3.3636e+03 2.8761e-10 -1.1695e+13 <2e-16 ***
## as.factor(id)132 -5.8182e+02 6.8886e-10 -8.4461e+11 <2e-16 ***
## as.factor(id)133 -4.0818e+03 2.8784e-10 -1.4181e+13 <2e-16 ***
## as.factor(id)134 -3.8636e+03 2.8748e-10 -1.3440e+13 <2e-16 ***
## as.factor(id)135 1.9091e+04 6.8045e-10 2.8056e+13 <2e-16 ***
## as.factor(id)136 -4.2727e+03 2.8784e-10 -1.4844e+13 <2e-16 ***
## as.factor(id)137 -2.6364e+03 6.8315e-10 -3.8591e+12 <2e-16 ***
## as.factor(id)138 -1.2727e+04 2.8587e-10 -4.4521e+13 <2e-16 ***
## as.factor(id)139 -4.3233e+03 2.8976e-10 -1.4920e+13 <2e-16 ***
## as.factor(id)140 -9.1364e+02 6.8060e-10 -1.3424e+12 <2e-16 ***
## as.factor(id)141 -6.8182e+03 2.8812e-10 -2.3664e+13 <2e-16 ***
## as.factor(id)142 -2.7273e+03 7.1696e-10 -3.8039e+12 <2e-16 ***
## as.factor(id)143 -3.9227e+03 2.8983e-10 -1.3534e+13 <2e-16 ***
## as.factor(id)144 -4.0682e+03 2.8635e-10 -1.4207e+13 <2e-16 ***
## as.factor(id)145 1.3182e+04 6.7861e-10 1.9425e+13 <2e-16 ***
## as.factor(id)146 6.6818e+04 6.8959e-10 9.6895e+13 <2e-16 ***
## as.factor(id)147 -1.3182e+04 2.8666e-10 -4.5985e+13 <2e-16 ***
## as.factor(id)148 -5.8636e+03 2.8741e-10 -2.0401e+13 <2e-16 ***
## as.factor(id)149 3.9091e+03 6.7988e-10 5.7497e+12 <2e-16 ***
## as.factor(id)150 4.5455e+02 6.7897e-10 6.6947e+11 <2e-16 ***
## as.factor(id)151 -1.0455e+03 2.8550e-10 -3.6618e+12 <2e-16 ***
## as.factor(id)152 6.3636e+03 2.8519e-10 2.2314e+13 <2e-16 ***
## as.factor(id)153 -4.0909e+03 6.7929e-10 -6.0223e+12 <2e-16 ***
## as.factor(id)154 -5.0000e+03 2.8878e-10 -1.7314e+13 <2e-16 ***
## as.factor(id)155 1.4364e+04 6.8309e-10 2.1027e+13 <2e-16 ***
## as.factor(id)156 -4.1591e+03 2.9316e-10 -1.4187e+13 <2e-16 ***
## as.factor(id)157 3.2727e+04 6.8152e-10 4.8021e+13 <2e-16 ***
## as.factor(id)158 6.3636e+02 6.7867e-10 9.3767e+11 <2e-16 ***
## as.factor(id)159 -5.8636e+03 2.8680e-10 -2.0445e+13 <2e-16 ***
## as.factor(id)162 -3.8182e+03 2.8569e-10 -1.3365e+13 <2e-16 ***
## as.factor(id)163 3.4545e+03 6.8244e-10 5.0621e+12 <2e-16 ***
## as.factor(id)164 1.1818e+03 6.8167e-10 1.7337e+12 <2e-16 ***
## as.factor(id)165 -2.7727e+03 2.8502e-10 -9.7280e+12 <2e-16 ***
## as.factor(id)166 -4.5291e+03 2.8461e-10 -1.5914e+13 <2e-16 ***
## as.factor(id)167 -1.9091e+03 6.8011e-10 -2.8070e+12 <2e-16 ***
## as.factor(id)168 3.0000e+03 6.8600e-10 4.3732e+12 <2e-16 ***
## as.factor(id)169 -5.7000e+03 2.8566e-10 -1.9954e+13 <2e-16 ***
## as.factor(id)171 9.0909e+02 2.8713e-10 3.1661e+12 <2e-16 ***
## as.factor(id)172 9.5455e+03 6.8682e-10 1.3898e+13 <2e-16 ***
## as.factor(id)174 -7.9545e+03 2.8549e-10 -2.7863e+13 <2e-16 ***
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
stargazer::stargazer(value_model, header = T, type='html', se = list(NULL,sqrt(diag(vcovCL(value_model, cluster = df[ , as.factor(id)])))),out='value_model_table.html')
##
## <table style="text-align:center"><tr><td colspan="2" style="border-bottom: 1px solid black"></td></tr><tr><td style="text-align:left"></td><td><em>Dependent variable:</em></td></tr>
## <tr><td></td><td colspan="1" style="border-bottom: 1px solid black"></td></tr>
## <tr><td style="text-align:left"></td><td>white_value_diff</td></tr>
## <tr><td colspan="2" style="border-bottom: 1px solid black"></td></tr><tr><td style="text-align:left">treatment</td><td>-2,727.273</td></tr>
## <tr><td style="text-align:left"></td><td>(20,958.320)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)73</td><td>8,636.364</td></tr>
## <tr><td style="text-align:left"></td><td>(20,958.320)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)74</td><td>-1,363.636</td></tr>
## <tr><td style="text-align:left"></td><td>(20,958.320)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)77</td><td>0.000</td></tr>
## <tr><td style="text-align:left"></td><td>(20,958.320)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)78</td><td>2,772.727</td></tr>
## <tr><td style="text-align:left"></td><td>(20,958.320)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)79</td><td>3,272.727</td></tr>
## <tr><td style="text-align:left"></td><td>(20,958.320)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)80</td><td>-6,818.182</td></tr>
## <tr><td style="text-align:left"></td><td>(20,958.320)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)81</td><td>636.364</td></tr>
## <tr><td style="text-align:left"></td><td>(20,958.320)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)82</td><td>36,363.640<sup>*</sup></td></tr>
## <tr><td style="text-align:left"></td><td>(20,958.320)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)83</td><td>-175.818</td></tr>
## <tr><td style="text-align:left"></td><td>(20,958.320)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)84</td><td>-3,713.636</td></tr>
## <tr><td style="text-align:left"></td><td>(20,958.320)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)85</td><td>-3,000.000</td></tr>
## <tr><td style="text-align:left"></td><td>(20,958.320)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)86</td><td>-4,227.273</td></tr>
## <tr><td style="text-align:left"></td><td>(20,958.320)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)87</td><td>-12,727.270</td></tr>
## <tr><td style="text-align:left"></td><td>(20,958.320)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)88</td><td>16,363.640</td></tr>
## <tr><td style="text-align:left"></td><td>(20,958.320)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)89</td><td>1,363.636</td></tr>
## <tr><td style="text-align:left"></td><td>(20,958.320)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)90</td><td>1,363.636</td></tr>
## <tr><td style="text-align:left"></td><td>(20,958.320)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)91</td><td>-3,454.545</td></tr>
## <tr><td style="text-align:left"></td><td>(20,958.320)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)92</td><td>6,272.727</td></tr>
## <tr><td style="text-align:left"></td><td>(20,958.320)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)93</td><td>-3,409.091</td></tr>
## <tr><td style="text-align:left"></td><td>(20,958.320)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)94</td><td>33,181.820</td></tr>
## <tr><td style="text-align:left"></td><td>(20,958.320)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)95</td><td>-4,954.545</td></tr>
## <tr><td style="text-align:left"></td><td>(20,958.320)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)96</td><td>-3,090.909</td></tr>
## <tr><td style="text-align:left"></td><td>(20,958.320)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)97</td><td>3,954.545</td></tr>
## <tr><td style="text-align:left"></td><td>(20,958.320)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)98</td><td>-1,681.818</td></tr>
## <tr><td style="text-align:left"></td><td>(20,958.320)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)99</td><td>-2,318.182</td></tr>
## <tr><td style="text-align:left"></td><td>(20,958.320)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)100</td><td>-3,727.273</td></tr>
## <tr><td style="text-align:left"></td><td>(20,958.320)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)101</td><td>-7,000.000</td></tr>
## <tr><td style="text-align:left"></td><td>(20,958.320)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)102</td><td>-10,000.000</td></tr>
## <tr><td style="text-align:left"></td><td>(20,958.320)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)103</td><td>-5,636.364</td></tr>
## <tr><td style="text-align:left"></td><td>(20,958.320)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)104</td><td>-4,527.273</td></tr>
## <tr><td style="text-align:left"></td><td>(20,958.320)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)105</td><td>-4,472.727</td></tr>
## <tr><td style="text-align:left"></td><td>(20,958.320)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)106</td><td>25,454.540</td></tr>
## <tr><td style="text-align:left"></td><td>(20,958.320)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)107</td><td>-3,909.091</td></tr>
## <tr><td style="text-align:left"></td><td>(20,958.320)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)108</td><td>-2,363.636</td></tr>
## <tr><td style="text-align:left"></td><td>(20,958.320)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)109</td><td>-3,636.364</td></tr>
## <tr><td style="text-align:left"></td><td>(20,958.320)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)110</td><td>-2,636.364</td></tr>
## <tr><td style="text-align:left"></td><td>(20,958.320)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)111</td><td>5,454.545</td></tr>
## <tr><td style="text-align:left"></td><td>(20,958.320)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)112</td><td>-2,227.273</td></tr>
## <tr><td style="text-align:left"></td><td>(20,958.320)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)113</td><td>-19,181.820</td></tr>
## <tr><td style="text-align:left"></td><td>(20,958.320)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)114</td><td>-3,454.545</td></tr>
## <tr><td style="text-align:left"></td><td>(20,958.320)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)115</td><td>-6,363.636</td></tr>
## <tr><td style="text-align:left"></td><td>(20,958.320)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)116</td><td>-96,818.180<sup>***</sup></td></tr>
## <tr><td style="text-align:left"></td><td>(20,958.320)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)117</td><td>-5,400.000</td></tr>
## <tr><td style="text-align:left"></td><td>(20,958.320)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)118</td><td>-36.364</td></tr>
## <tr><td style="text-align:left"></td><td>(20,958.320)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)119</td><td>-6,772.727</td></tr>
## <tr><td style="text-align:left"></td><td>(20,958.320)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)120</td><td>5,636.364</td></tr>
## <tr><td style="text-align:left"></td><td>(20,958.320)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)121</td><td>12,272.730</td></tr>
## <tr><td style="text-align:left"></td><td>(20,958.320)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)122</td><td>-2,636.364</td></tr>
## <tr><td style="text-align:left"></td><td>(20,958.320)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)123</td><td>-1,818.182</td></tr>
## <tr><td style="text-align:left"></td><td>(20,958.320)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)124</td><td>1,363.636</td></tr>
## <tr><td style="text-align:left"></td><td>(20,958.320)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)125</td><td>-3,295.455</td></tr>
## <tr><td style="text-align:left"></td><td>(20,958.320)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)126</td><td>3,636.364</td></tr>
## <tr><td style="text-align:left"></td><td>(20,958.320)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)127</td><td>38,636.360<sup>*</sup></td></tr>
## <tr><td style="text-align:left"></td><td>(20,958.320)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)128</td><td>14,090.910</td></tr>
## <tr><td style="text-align:left"></td><td>(20,958.320)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)129</td><td>1,818.182</td></tr>
## <tr><td style="text-align:left"></td><td>(20,958.320)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)130</td><td>3,181.818</td></tr>
## <tr><td style="text-align:left"></td><td>(20,958.320)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)131</td><td>-3,363.636</td></tr>
## <tr><td style="text-align:left"></td><td>(20,958.320)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)132</td><td>-581.818</td></tr>
## <tr><td style="text-align:left"></td><td>(20,958.320)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)133</td><td>-4,081.818</td></tr>
## <tr><td style="text-align:left"></td><td>(20,958.320)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)134</td><td>-3,863.636</td></tr>
## <tr><td style="text-align:left"></td><td>(20,958.320)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)135</td><td>19,090.910</td></tr>
## <tr><td style="text-align:left"></td><td>(20,958.320)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)136</td><td>-4,272.727</td></tr>
## <tr><td style="text-align:left"></td><td>(20,958.320)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)137</td><td>-2,636.364</td></tr>
## <tr><td style="text-align:left"></td><td>(20,958.320)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)138</td><td>-12,727.270</td></tr>
## <tr><td style="text-align:left"></td><td>(20,958.320)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)139</td><td>-4,323.273</td></tr>
## <tr><td style="text-align:left"></td><td>(20,958.320)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)140</td><td>-913.636</td></tr>
## <tr><td style="text-align:left"></td><td>(20,958.320)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)141</td><td>-6,818.182</td></tr>
## <tr><td style="text-align:left"></td><td>(20,958.320)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)142</td><td>-2,727.273</td></tr>
## <tr><td style="text-align:left"></td><td>(20,958.320)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)143</td><td>-3,922.727</td></tr>
## <tr><td style="text-align:left"></td><td>(20,958.320)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)144</td><td>-4,068.182</td></tr>
## <tr><td style="text-align:left"></td><td>(20,958.320)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)145</td><td>13,181.820</td></tr>
## <tr><td style="text-align:left"></td><td>(20,958.320)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)146</td><td>66,818.180<sup>***</sup></td></tr>
## <tr><td style="text-align:left"></td><td>(20,958.320)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)147</td><td>-13,181.820</td></tr>
## <tr><td style="text-align:left"></td><td>(20,958.320)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)148</td><td>-5,863.636</td></tr>
## <tr><td style="text-align:left"></td><td>(20,958.320)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)149</td><td>3,909.091</td></tr>
## <tr><td style="text-align:left"></td><td>(20,958.320)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)150</td><td>454.545</td></tr>
## <tr><td style="text-align:left"></td><td>(20,958.320)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)151</td><td>-1,045.455</td></tr>
## <tr><td style="text-align:left"></td><td>(20,958.320)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)152</td><td>6,363.636</td></tr>
## <tr><td style="text-align:left"></td><td>(20,958.320)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)153</td><td>-4,090.909</td></tr>
## <tr><td style="text-align:left"></td><td>(20,958.320)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)154</td><td>-5,000.000</td></tr>
## <tr><td style="text-align:left"></td><td>(20,958.320)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)155</td><td>14,363.640</td></tr>
## <tr><td style="text-align:left"></td><td>(20,958.320)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)156</td><td>-4,159.091</td></tr>
## <tr><td style="text-align:left"></td><td>(20,958.320)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)157</td><td>32,727.270</td></tr>
## <tr><td style="text-align:left"></td><td>(20,958.320)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)158</td><td>636.364</td></tr>
## <tr><td style="text-align:left"></td><td>(20,958.320)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)159</td><td>-5,863.636</td></tr>
## <tr><td style="text-align:left"></td><td>(20,958.320)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)162</td><td>-3,818.182</td></tr>
## <tr><td style="text-align:left"></td><td>(20,958.320)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)163</td><td>3,454.545</td></tr>
## <tr><td style="text-align:left"></td><td>(20,958.320)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)164</td><td>1,181.818</td></tr>
## <tr><td style="text-align:left"></td><td>(20,958.320)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)165</td><td>-2,772.727</td></tr>
## <tr><td style="text-align:left"></td><td>(20,958.320)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)166</td><td>-4,529.091</td></tr>
## <tr><td style="text-align:left"></td><td>(20,958.320)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)167</td><td>-1,909.091</td></tr>
## <tr><td style="text-align:left"></td><td>(20,958.320)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)168</td><td>3,000.000</td></tr>
## <tr><td style="text-align:left"></td><td>(20,958.320)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)169</td><td>-5,700.000</td></tr>
## <tr><td style="text-align:left"></td><td>(20,958.320)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)171</td><td>909.091</td></tr>
## <tr><td style="text-align:left"></td><td>(20,958.320)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)172</td><td>9,545.455</td></tr>
## <tr><td style="text-align:left"></td><td>(20,958.320)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)173</td><td></td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)174</td><td>-7,954.545</td></tr>
## <tr><td style="text-align:left"></td><td>(20,958.320)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">Constant</td><td>4,090.909</td></tr>
## <tr><td style="text-align:left"></td><td>(14,819.770)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td colspan="2" style="border-bottom: 1px solid black"></td></tr><tr><td style="text-align:left">Observations</td><td>1,078</td></tr>
## <tr><td style="text-align:left">R<sup>2</sup></td><td>0.093</td></tr>
## <tr><td style="text-align:left">Adjusted R<sup>2</sup></td><td>0.004</td></tr>
## <tr><td style="text-align:left">Residual Std. Error</td><td>49,151.620 (df = 980)</td></tr>
## <tr><td style="text-align:left">F Statistic</td><td>1.041 (df = 97; 980)</td></tr>
## <tr><td colspan="2" style="border-bottom: 1px solid black"></td></tr><tr><td style="text-align:left"><em>Note:</em></td><td style="text-align:right"><sup>*</sup>p<0.1; <sup>**</sup>p<0.05; <sup>***</sup>p<0.01</td></tr>
## </table>
prop_white_model_no_id = df[, lm(white_value_diff ~ treatment)]
coeftest(prop_white_model_no_id, vcov = vcovCL(prop_white_model_no_id))
##
## t test of coefficients:
##
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 238.98 779.32 0.3067 0.75917
## treatment 5852.21 3049.54 1.9190 0.05524 .
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
stargazer::stargazer(prop_white_model_no_id, header = T, type='html', se = list(NULL,sqrt(diag(vcovCL(prop_white_model_no_id, cluster = df[ , as.factor(id)])))),out='prop_white_model_no_id_table.html')
##
## <table style="text-align:center"><tr><td colspan="2" style="border-bottom: 1px solid black"></td></tr><tr><td style="text-align:left"></td><td><em>Dependent variable:</em></td></tr>
## <tr><td></td><td colspan="1" style="border-bottom: 1px solid black"></td></tr>
## <tr><td style="text-align:left"></td><td>white_value_diff</td></tr>
## <tr><td colspan="2" style="border-bottom: 1px solid black"></td></tr><tr><td style="text-align:left">treatment</td><td>5,852.211<sup>*</sup></td></tr>
## <tr><td style="text-align:left"></td><td>(2,996.217)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">Constant</td><td>238.982</td></tr>
## <tr><td style="text-align:left"></td><td>(2,096.915)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td colspan="2" style="border-bottom: 1px solid black"></td></tr><tr><td style="text-align:left">Observations</td><td>1,078</td></tr>
## <tr><td style="text-align:left">R<sup>2</sup></td><td>0.004</td></tr>
## <tr><td style="text-align:left">Adjusted R<sup>2</sup></td><td>0.003</td></tr>
## <tr><td style="text-align:left">Residual Std. Error</td><td>49,177.020 (df = 1076)</td></tr>
## <tr><td style="text-align:left">F Statistic</td><td>3.815<sup>*</sup> (df = 1; 1076)</td></tr>
## <tr><td colspan="2" style="border-bottom: 1px solid black"></td></tr><tr><td style="text-align:left"><em>Note:</em></td><td style="text-align:right"><sup>*</sup>p<0.1; <sup>**</sup>p<0.05; <sup>***</sup>p<0.01</td></tr>
## </table>